home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / picbtn.exe / PICBTNS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-13  |  4.7 KB  |  156 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   4230
  7.    ClientLeft      =   1815
  8.    ClientTop       =   2475
  9.    ClientWidth     =   4335
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4635
  21.    Left            =   1755
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   4230
  24.    ScaleWidth      =   4335
  25.    Top             =   2130
  26.    Width           =   4455
  27.    Begin VB.CommandButton Command1 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H80000005&
  30.       Caption         =   "Command1"
  31.       BeginProperty Font 
  32.          name            =   "MS Sans Serif"
  33.          charset         =   0
  34.          weight          =   400
  35.          size            =   8.25
  36.          underline       =   0   'False
  37.          italic          =   0   'False
  38.          strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   495
  41.       Left            =   240
  42.       TabIndex        =   3
  43.       Top             =   960
  44.       Width           =   1695
  45.    End
  46.    Begin VB.CheckBox Check1 
  47.       Caption         =   "Check1"
  48.       BeginProperty Font 
  49.          name            =   "MS Sans Serif"
  50.          charset         =   0
  51.          weight          =   400
  52.          size            =   8.25
  53.          underline       =   0   'False
  54.          italic          =   0   'False
  55.          strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   255
  58.       Left            =   240
  59.       TabIndex        =   2
  60.       Top             =   240
  61.       Width           =   1215
  62.    End
  63.    Begin VB.HScrollBar HScroll1 
  64.       Height          =   255
  65.       Left            =   240
  66.       TabIndex        =   1
  67.       Top             =   600
  68.       Width           =   1695
  69.    End
  70.    Begin PicbtnLib.PicBtn PicBtn1 
  71.       Height          =   1575
  72.       Left            =   240
  73.       TabIndex        =   0
  74.       Top             =   1560
  75.       Width           =   2415
  76.       _Version        =   65538
  77.       _ExtentX        =   4260
  78.       _ExtentY        =   2778
  79.       _StockProps     =   79
  80.       Caption         =   "PicBtn1|Sample"
  81.       BackColor       =   -2147483643
  82.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  83.          name            =   "MS Sans Serif"
  84.          charset         =   0
  85.          weight          =   400
  86.          size            =   8.25
  87.          underline       =   0   'False
  88.          italic          =   0   'False
  89.          strikethrough   =   0   'False
  90.       EndProperty
  91.       AutoSize        =   -1  'True
  92.       ButtonColor     =   -2147483633
  93.       Gap             =   6
  94.       Mode            =   0
  95.       PictureUp       =   "PICBTNS1.frx":0000
  96.       Placement       =   0
  97.       MouseFocus      =   -1  'True
  98.       Value           =   0   'False
  99.       Font3D          =   0
  100.       Appearance      =   1
  101.    End
  102. Attribute VB_Name = "Form1"
  103. Attribute VB_Creatable = False
  104. Attribute VB_Exposed = False
  105. Option Explicit
  106. Private Sub Check1_Click()
  107.     PicBtn1.AutoSize = Check1.Value
  108. End Sub
  109. Private Sub Command1_Click()
  110.     Select Case Val(Left(Command1.Caption, 1))
  111.         Case 0:
  112.             Command1.Caption = "1 - Above text"
  113.             PicBtn1.Placement = 1
  114.         Case 1:
  115.             Command1.Caption = "2 - Right of text"
  116.             PicBtn1.Placement = 2
  117.         Case 2:
  118.             Command1.Caption = "3 - Below text"
  119.             PicBtn1.Placement = 3
  120.         Case 3:
  121.             Command1.Caption = "4 - Center of button"
  122.             PicBtn1.Placement = 4
  123.         Case 4:
  124.             Command1.Caption = "0 - Left of text"
  125.             PicBtn1.Placement = 0
  126.     End Select
  127. End Sub
  128. Private Sub Form_Load()
  129.     Form1.Caption = "PicBtn Sample #1"
  130.     Form1.Height = 3720
  131.     Form1.Width = 3000
  132.     Check1.Top = 240
  133.     Check1.Left = 240
  134.     Check1.Width = 1800
  135.     Check1.Caption = "AutoSize"
  136.     Check1.Value = 1
  137.     HScroll1.Top = 600
  138.     HScroll1.Left = 240
  139.     HScroll1.Width = 1800
  140.     HScroll1.Value = 6
  141.     HScroll1.Min = 0
  142.     HScroll1.Max = 20
  143.     Command1.Top = 960
  144.     Command1.Left = 240
  145.     Command1.Height = 480
  146.     Command1.Width = 1800
  147.     Command1.Caption = "0 - Left of text"
  148.     PicBtn1.Top = 1560
  149.     PicBtn1.Left = 240
  150.     PicBtn1.Width = 2400
  151.     PicBtn1.Height = 1500
  152. End Sub
  153. Private Sub HScroll1_Change()
  154.     PicBtn1.Gap = HScroll1.Value
  155. End Sub
  156.